/* schdw.t  schd_det Schedule Detail Write Trigge                             */
/*Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                         */
/*All rights reserved worldwide.  This is an unpublished work.                */
/* $Revision: 1.2 $                                                           */
/*V8:ConvertMode=NoConvert                                                    */
/******************************************************************************/
/* Revision: 1.1        BY: Jean Miller          DATE: 09/04/02  ECO: *P0HP*  */
/* $Revision: 1.2 $     BY: Jean Miller          DATE: 09/06/02  ECO: *P0HZ*  */
/******************************************************************************/

TRIGGER PROCEDURE FOR WRITE OF schd_det OLD BUFFER old_schd_det.

{mfdeclre.i}

define variable l-qualifier as character format "x(8)".

/* Track Capacity Units */
if new schd_det and schd_det.schd_fc_qual = "F"
then do:
   l-qualifier = string(schd_det.schd_type).
   {lvucap.i &TABLE="schd_det" &QUALIFIER="l-qualifier"}
end.
